home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2gem106.lzh / CRYSTAL1.06 / SRC / TOOLBOX / PMATHLIB.MOD < prev    next >
Encoding:
Modula Implementation  |  1994-01-21  |  1.3 KB  |  60 lines
  1. IMPLEMENTATION MODULE pMATHLIB;
  2.  
  3. (*
  4. Parts of a portable MathLib0 Module :-(
  5.  
  6. UK __DATE__ __TIME__
  7. *)
  8.  
  9. (*IMP_SWITCHES*)
  10.  
  11. FROM PORTAB IMPORT SIGNEDWORD;
  12.  
  13. #if (defined HM2)   || (defined XHM2)  || (defined MM2)   || \
  14.     (defined TDIM2) || (defined LPRM2) || (defined SPCM2) || \
  15.     (defined FTLM2)
  16. IMPORT MathLib0;
  17. #else
  18. IMPORT MathLib0;
  19. #endif
  20.  
  21. PROCEDURE sqrt(x: REAL): REAL;
  22. BEGIN
  23. #if (defined HM2) || (defined XHM2)
  24.   RETURN MathLib0.Sqrt(x);
  25. #elif (defined MM2)   || (defined TDIM2) || (defined LPRM2) || \
  26.       (defined SPCM2) || (defined FTLM2)
  27.   RETURN MathLib0.sqrt(x);
  28. #else
  29.   RETURN MathLib0.sqrt(x);
  30. #endif
  31. END sqrt;
  32.  
  33. PROCEDURE wordtoreal(x: SIGNEDWORD): REAL;
  34. BEGIN
  35. #if (defined HM2) || (defined XHM2)
  36.   RETURN MathLib0.Real(x);
  37. #elif (defined MM2)   || (defined TDIM2) || (defined LPRM2) || \
  38.       (defined SPCM2) || (defined FTLM2)
  39.   RETURN MathLib0.real(x);
  40. #else
  41.   RETURN MathLib0.real(x);
  42. #endif
  43. (*
  44.   RETURN FLOAT(x);
  45.   *)
  46. END wordtoreal;
  47.  
  48. PROCEDURE realtoword(x: REAL): SIGNEDWORD;
  49. BEGIN
  50. #if (defined HM2) || (defined XHM2)
  51.   RETURN MathLib0.Entier(x);
  52. #elif (defined MM2)   || (defined TDIM2) || (defined LPRM2) || \
  53.       (defined SPCM2) || (defined FTLM2)
  54.   RETURN MathLib0.entier(x);
  55. #else
  56.   RETURN MathLib0.entier(x);
  57. #endif
  58. END realtoword;
  59.  
  60. END pMATHLIB.